home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / AVERAGE GROWTH RATE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  805b  |  32 lines
  1. 10  PRINT "AVERAGE GROWTH RATE, FUTURE PROJECTIONS"
  2. 20  PRINT 
  3. 30  DIM S(20)
  4. 40  PRINT "NUMBER OF YEARS FIGURES ESTABLISHED";
  5. 50  INPUT N
  6. 60  FOR I = 1 TO N
  7. 70  IF I >1  THEN 100
  8. 80  PRINT "FIGURE: YEAR "I;
  9. 90  GOTO 110
  10. 100  PRINT "        YEAR ";I;
  11. 110  INPUT S(I)
  12. 120  NEXT I
  13. 130 T =  LOG(S(1))
  14. 140 V = 0
  15. 150  FOR I = 2 TO N
  16. 160 L =  LOG(S(I))
  17. 170 T = T +L
  18. 180 V = V +(I -1) *L
  19. 190  NEXT I
  20. 200 A = 6 *(2 *V/(N -1) -T)/(N)/(N +1)
  21. 210 G =  EXP(A) -1
  22. 220  PRINT "AVERAGE GROWTH RATE = " INT(G *10000 +.5)/100;"%"
  23. 230  PRINT 
  24. 240 S =  EXP(T/N -A *(N -1)/2)
  25. 250  PRINT "(ENTER 0 TO END PROGRAM)"
  26. 260  PRINT "PROJECTED SALES FOR YEAR ";
  27. 270  INPUT Y1
  28. 280  IF Y1 = 0  THEN 320
  29. 290 S1 = S *(1 +G) ^(Y1 -1)
  30. 300  PRINT "                         ="; INT(S1 *100 +.5)/100
  31. 310  GOTO 260
  32. 320  PRINT "<CTRL-D>RUNHELLO"